PC Gamer (Italian) 48/PC Gamer IT CD 48 2-2.iso/utility/nmail28u/_SETUP.1/NETMAIL.EXE/0/RCDATA/TADDRESSFORM/TADDRESSFORM.txt

Text File | 1999-09-10 | 53KB | 1,510 lines

object AddressForm: TAddressForm
  Left = 16
  Top = 65
  HelpContext = 180
  BorderStyle = bsDialog
  Caption = 'Address Book'
  ClientHeight = 397
  ClientWidth = 630
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  FormStyle = fsMDIChild
  HelpFile = 'netmail.hlp'
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 630
    Height = 31
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object SBOpengroup: TSpeedButton
      Left = 92
      Top = 5
      Width = 122
      Height = 24
      Hint = 'Open or add new mailing list'
      Caption = 'Open/Add New List'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
        B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
        B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
        0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
        55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
        55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
        55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
        5555575FFF755555555557000075555555555577775555555555}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBOpengroupClick
    end
    object SBSavegroup: TSpeedButton
      Left = 281
      Top = 5
      Width = 88
      Height = 24
      Hint =
        'You have to select email address before list saving.'#13#10'Use "Selec' +
        't Email" button.'
      Caption = 'Save List As'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
        007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
        7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
        99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBSavegroupClick
    end
    object SBEdit: TSpeedButton
      Left = 214
      Top = 5
      Width = 66
      Height = 24
      Hint = 'Edit, Rename Mailing List'
      Caption = 'Edit List'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBEditClick
    end
    object SBDubleA: TSpeedButton
      Left = 369
      Top = 5
      Width = 140
      Height = 24
      Caption = 'Remove duplicate email'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
        00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
        00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
        F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
        FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
        0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
        0033333337FFFFFF773333333000000003333333377777777333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBDubleAClick
    end
    object SpeedButton5: TSpeedButton
      Left = 510
      Top = 5
      Width = 57
      Height = 24
      Caption = 'Import'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton5Click
    end
    object SpeedButton7: TSpeedButton
      Left = 441
      Top = -12
      Width = 78
      Height = 24
      Caption = 'Report'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
        00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
        00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
        F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
        FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
        0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
        0033333337FFFFFF773333333000000003333333377777777333}
      NumGlyphs = 2
      ParentFont = False
      Visible = False
      OnClick = SBDubleAClick
    end
    object Label6: TLabel
      Left = 8
      Top = 10
      Width = 76
      Height = 13
      Caption = 'Mailing list ->'
      Visible = False
    end
    object BitBSave: TSpeedButton
      Left = 5
      Top = 5
      Width = 88
      Height = 24
      Hint =
        'Select mailing list for the message'#13#10'and back to the message for' +
        'm'
      Caption = 'Select list'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFF333333333333000333333333
        3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
        3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
        0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
        BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
        33337777773FF733333333333300033333333333337773333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = BitBSaveClick
    end
    object Panel4: TPanel
      Left = 563
      Top = 0
      Width = 67
      Height = 31
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object BitBtn2: TExplorerButton
        Left = 2
        Top = 4
        Width = 65
        Height = 26
        NoFocusBitmap.Data = {
          96010000424D9601000000000000760000002800000014000000180000000100
          0400000000002001000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777700007777777777777777777700007777777777777777777700007777
          7777777777777777000077777777777777777777000000007EEEEEEEEEEE0000
          0000777076666666666008770000777076666666666008770000777076666666
          666008770000777076B666666660087700007770766666666660087700007770
          76B66666666008770000777076B66666666008770000777076B6666666600877
          0000777076666666666008770000777076666666666008770000777076666666
          6660087700007770766666666660087700007770766666666660087700007770
          7666666666600877000077707666666666600877000077707777777777770877
          0000777000000000000008770000777777777777777777770000}
        Bitmap.Data = {
          96010000424D9601000000000000760000002800000016000000180000000100
          0400000000002001000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777777007777777777777777770007007777777777777777706607007777
          7777777777770666070077777777777777706666070000007777777777066666
          07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
          EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770
          EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666
          07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
          EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770
          EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877
          7700777000000000000007777700777777777777777777777700}
        Caption = 'Close'
        DisabledBitmap.Data = {
          96010000424D9601000000000000760000002800000016000000180000000100
          0400000000002001000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777777007777777777777777770007007777777777777777706607007777
          7777777777770666070077777777777777706666070000007777777777066666
          07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
          EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770
          EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666
          07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
          EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770
          EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877
          7700777000000000000007777700777777777777777777777700}
        Layout = blBitmapLeft
        Options = [boMonoDisplay, boPopupMark, boShowBevel]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        OnClick = BitBtn2Click
        ParentFont = False
        IBitmap = {
          424D560A00000000000036000000280000001F0000001B000000010018000000
          0000200A0000000000000000000000000000000000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF000000BFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000
          BFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFF
          FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
          000000BFBFBFFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFF
          FFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBF00000000
          0000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          7F7F7F7FFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFF7F7F7F7F7F7F7F7F7FBFBFBFBFBFBF7F7F7F7F7F
          7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF000000FFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF7F7F
          7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000
          FFFFFFFFFFFFFFFFFF000000000000FFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF
          BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7F
          7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
          7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
          7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
          7FFFFFFFFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBFFFFFFF
          FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFFFFFFFFFFFFFFFFFFFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBF
          FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
          BFBFBFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
          000000BFBFBFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000000000000000000000000000000000000000000000000000
          000000000000BFBFBF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBF000000000000000000000000000000000000000000000000000000
          000000000000000000000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF000000}
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 31
    Width = 630
    Height = 82
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Bevel1: TBevel
      Left = 0
      Top = 78
      Width = 630
      Height = 4
      Align = alBottom
      Style = bsRaised
    end
    object SpeedButton1: TSpeedButton
      Left = 3
      Top = 28
      Width = 88
      Height = 24
      Hint = 'Table/Form '
      Caption = 'Table/Form'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        66010000424D6601000000000000760000002800000013000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
        EEEEEEE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEFFFFFFFFE00000EE22
        22E22EF22F222FE00000EEEEEEEEEEFFFFFFFFE00000EEEEEEEEEEEEEEEEEEE0
        0000EEEEEEEEEEFFFFFFFFE00000EE222E222EF222222FE00000EEEEEEEEEEFF
        FFFFFFE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEFFFFFFFFE00000EE22
        222EEEF2222FEFE00000EEEEEEEEEEFFFFFFFFE00000EEEEEEEEEEEEEEEEEEE0
        0000EEEEEEEEEEFFFFFFFFE00000EEE22E22EEF222F22FE00000EEEEEEEEEEFF
        FFFFFFE00000EEEEEEEEEEEEEEEEEEE00000EEE222E2222222222EE00000EEEE
        EEEEEEEEEEEEEEE00000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = DBGridadressDblClick
    end
    object SBSelect: TSpeedButton
      Left = 175
      Top = 28
      Width = 77
      Height = 24
      Hint = 'Select all email for mailing list'
      Caption = 'Select all'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333000003333333333F777773FF333333003333300
        33333337733333773F33330333333333033333733FFFFFFF73F3303300000003
        303337F37777777337F3303330CCC0333033373337777733373F0333330C0333
        33037F33337773FFF37F03333330300033037F3FFFF73777FF7F0300000307B7
        03037F77777F77777F7F030999030BBB03037F77777F77777F7F0309990307B7
        03037377777F7777737330099903300030333777777F377737F3300000033333
        3033377777733333373333033333333303333373FF33333F7333333003333300
        3333333773FFFF77333333333000003333333333377777333333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBSelectClick
    end
    object SBSelone: TSpeedButton
      Left = 91
      Top = 28
      Width = 84
      Height = 24
      Hint = 'Select email address for mailing list'
      Caption = 'Select Email'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFF333333333333000333333333
        3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
        3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
        0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
        BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
        33337777773FF733333333333300033333333333337773333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBSeloneClick
    end
    object SpeedButton4: TSpeedButton
      Left = 256
      Top = 28
      Width = 80
      Height = 24
      Caption = 'Filter'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object Label9: TLabel
      Left = 9
      Top = 6
      Width = 95
      Height = 13
      Caption = 'Mailing List Name ->'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SBMessage: TSpeedButton
      Left = 336
      Top = 28
      Width = 78
      Height = 24
      Hint = 'Messages for selected addresses'
      Caption = 'Messages'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF
        77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0FFFFF
        FFF07F333F7F3FFFF3370FFF700F0000FFF07F3F777F777733370F707F0FFFFF
        FFF07F77337F3FFFFFF7007EEE0F000000F077FFFF7F777777370777770FFFFF
        FFF07777777F3FFFFFF7307EEE0F000000F03773FF7F7777773733707F0FFFFF
        FFF03337737F3FFF33373333700F000FFFF03333377F77733FF73333330FFFFF
        00003333337F3FF377773333330F00FF0F033333337F77337F733333330FFFFF
        00333333337FFFFF773333333300000003333333337777777333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = SBMessageClick
    end
    object SBaddList: TSpeedButton
      Left = 256
      Top = 52
      Width = 242
      Height = 25
      Caption = 'Add Selected Addresses to Mailing List'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
        055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
        305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
        30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
        3055577777555557F7F555000555555999555577755555577755}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = SBaddListClick
    end
    object SBdeleteFromList: TSpeedButton
      Left = 3
      Top = 52
      Width = 249
      Height = 25
      Caption = 'Delete Selected Addresses from Mailing List'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000003
        33333333777777733333333330CCC03333333333F7777733F3333330330C0330
        33333337337773373333333333303333333333F33337333333F3303333333333
        3033373333333333373333333333333333333F3333333333333F033333333333
        3303733333333333337333333333333333333F3333333333333F033333333333
        3303733333333333FF7333333333333000333FFFFF33333777FF000003333307
        B70377777F333377777F09990333330BBB0377777F333377777F099903333307
        B70377777F3333777773099903333330003377777F3333377733000003333330
        3333777773F3F3F7333333333030303333333333373737333333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = SBdeleteFromListClick
    end
    object SBdellist: TSpeedButton
      Left = 498
      Top = 52
      Width = 127
      Height = 25
      Caption = 'Delete  List'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
        3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
        03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
        33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
        0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
        3333333337FFF7F3333333333000003333333333377777333333}
      NumGlyphs = 2
      ParentFont = False
      Visible = False
      OnClick = SBdellistClick
    end
    object DBNavigator1: TDBNavigator
      Left = 416
      Top = 28
      Width = 125
      Height = 24
      DataSource = DSadressUP
      VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      Flat = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      BeforeAction = DBNavigator1BeforeAction
    end
    object DBNavigator2: TDBNavigator
      Left = 541
      Top = 28
      Width = 84
      Height = 24
      DataSource = DSadress
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Flat = True
      TabOrder = 1
    end
    object NamegrouptLB: TComboBox
      Left = 107
      Top = 2
      Width = 516
      Height = 21
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      DropDownCount = 30
      ItemHeight = 13
      Items.Strings = (
        'Last Name'
        'First Name'
        'Address')
      ParentCtl3D = False
      TabOrder = 2
      OnChange = NamegrouptLBChange
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 113
    Width = 630
    Height = 284
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 627
      Top = 0
      Width = 3
      Height = 284
      Cursor = crHSplit
      Align = alRight
    end
    object Label1: TLabel
      Left = 8
      Top = 104
      Width = 61
      Height = 13
      Caption = 'Last Name'
    end
    object Label3: TLabel
      Left = 8
      Top = 131
      Width = 52
      Height = 13
      Caption = 'Company'
    end
    object Label4: TLabel
      Left = 10
      Top = 26
      Width = 35
      Height = 13
      Caption = 'E.mail'
    end
    object Label2: TLabel
      Left = 8
      Top = 77
      Width = 61
      Height = 13
      Caption = 'First Name'
    end
    object Image1: TImage
      Left = 192
      Top = 288
      Width = 105
      Height = 105
      Picture.Data = {<image000.bmp>}
      Visible = False
    end
    object Label5: TLabel
      Left = 8
      Top = 158
      Width = 65
      Height = 13
      Caption = 'Description'
    end
    object Label13: TLabel
      Left = 10
      Top = 50
      Width = 26
      Height = 13
      Caption = 'URL'
    end
    object DBCheckBox2: TDBCheckBox
      Left = 88
      Top = 208
      Width = 600
      Height = 17
      Caption =
        'The address is blocked as it is included in the stop list databa' +
        'se'
      DataField = 'StopList'
      DataSource = DSadressUP
      ReadOnly = True
      TabOrder = 10
      ValueChecked = 'True;Yes;'
      ValueUnchecked = 'False;No;'
    end
    object DBCheckBox1: TDBCheckBox
      Left = 88
      Top = 184
      Width = 300
      Height = 17
      Caption = 'To block the address'
      DataField = 'BlockAdress'
      DataSource = DSadressUP
      TabOrder = 9
      ValueChecked = 'True;Yes;'
      ValueUnchecked = 'False;No;'
    end
    object DBEdit6: TDBEdit
      Left = 86
      Top = 50
      Width = 361
      Height = 21
      BorderStyle = bsNone
      Color = 14935011
      DataField = 'URL'
      DataSource = DSadressUP
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object DBEdit5: TDBEdit
      Left = 86
      Top = 154
      Width = 443
      Height = 21
      BorderStyle = bsNone
      Color = 14935011
      DataField = 'Description'
      DataSource = DSadressUP
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object DBEdit4: TDBEdit
      Left = 86
      Top = 24
      Width = 289
      Height = 21
      BorderStyle = bsNone
      Color = 14935011
      DataField = 'HomeEMail'
      DataSource = DSadressUP
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object DBEdit3: TDBEdit
      Left = 86
      Top = 128
      Width = 361
      Height = 21
      BorderStyle = bsNone
      Color = 14935011
      DataField = 'Company'
      DataSource = DSadressUP
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object DBEdit2: TDBEdit
      Left = 86
      Top = 101
      Width = 361
      Height = 21
      BorderStyle = bsNone
      Color = 14935011
      DataField = 'LastName'
      DataSource = DSadressUP
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object DBEdit1: TDBEdit
      Left = 86
      Top = 75
      Width = 361
      Height = 21
      BorderStyle = bsNone
      Color = 14935011
      DataField = 'FirstName'
      DataSource = DSadressUP
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object DBRadioGroup1: TDBRadioGroup
      Left = 382
      Top = 17
      Width = 223
      Height = 30
      Columns = 3
      DataField = 'TypeAdress'
      DataSource = DSadressUP
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Items.Strings = (
        'e.mail       '
        'cc  '
        'bcc')
      ParentFont = False
      TabOrder = 1
      Values.Strings = (
        '0'
        '1'
        '2')
    end
    object DBGridadress: TDBGrid
      Left = 0
      Top = 0
      Width = 627
      Height = 284
      Align = alClient
      BorderStyle = bsNone
      DataSource = DSadress
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 6
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawDataCell = DBGridadressDrawDataCell
      OnDblClick = DBGridadressDblClick
      OnKeyDown = DBGridadressKeyDown
    end
    object ToList: TListBox
      Tag = 1
      Left = 297
      Top = 52
      Width = 24
      Height = 155
      ItemHeight = 13
      Style = lbOwnerDrawFixed
      TabOrder = 7
      Visible = False
    end
  end
  object PanelGroup: TPanel
    Left = 0
    Top = 113
    Width = 630
    Height = 284
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 3
    Visible = False
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 628
      Height = 117
      Align = alTop
      TabOrder = 0
      object DBText1: TDBText
        Left = 117
        Top = 33
        Width = 303
        Height = 19
        Color = clWhite
        DataField = 'NameGroup'
        DataSource = DSGroup
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label7: TLabel
        Left = 7
        Top = 34
        Width = 101
        Height = 13
        Caption = 'Mailing List Name'
      end
      object Label8: TLabel
        Left = 7
        Top = 55
        Width = 44
        Height = 13
        Caption = 'Subject'
      end
      object Label10: TLabel
        Left = 7
        Top = 75
        Width = 52
        Height = 13
        Caption = 'Comment'
      end
      object Label11: TLabel
        Left = 7
        Top = 95
        Width = 39
        Height = 13
        Caption = 'Note 1'
      end
      object Label12: TLabel
        Left = 283
        Top = 95
        Width = 39
        Height = 13
        Caption = 'Note 2'
      end
      object SpeedButton2: TSpeedButton
        Left = 4
        Top = 4
        Width = 128
        Height = 24
        Caption = 'Select mailing list'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333FFF333333333333000333333333
          3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
          3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
          0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
          BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
          33337777773FF733333333333300033333333333337773333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentFont = False
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 261
        Top = 4
        Width = 128
        Height = 24
        Caption = 'Cancel'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
          33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
          993337777F777F3377F3393999707333993337F77737333337FF993399933333
          399377F3777FF333377F993339903333399377F33737FF33377F993333707333
          399377F333377FF3377F993333101933399377F333777FFF377F993333000993
          399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
          99333773FF777F777733339993707339933333773FF7FFF77333333999999999
          3333333777333777333333333999993333333333377777333333}
        NumGlyphs = 2
        ParentFont = False
        Spacing = 3
        OnClick = SpeedButton3Click
      end
      object DBText2: TDBText
        Left = 117
        Top = 53
        Width = 303
        Height = 19
        Color = clWhite
        DataField = 'Subject'
        DataSource = DSGroup
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object DBText3: TDBText
        Left = 117
        Top = 73
        Width = 303
        Height = 19
        Color = clWhite
        DataField = 'Comment'
        DataSource = DSGroup
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object DBText4: TDBText
        Left = 60
        Top = 93
        Width = 177
        Height = 19
        Color = clWhite
        DataField = 'Note1'
        DataSource = DSGroup
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object DBText5: TDBText
        Left = 332
        Top = 93
        Width = 285
        Height = 19
        Color = clWhite
        DataField = 'Note2'
        DataSource = DSGroup
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object SpeedButton6: TSpeedButton
        Left = 132
        Top = 4
        Width = 128
        Height = 24
        Caption = 'Add new mailing list'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
          B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
          B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
          0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
          55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
          55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
          55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
          5555575FFF755555555557000075555555555577775555555555}
        NumGlyphs = 2
        ParentFont = False
        OnClick = SpeedButton6Click
      end
    end
    object DBGridGroup: TDBGrid
      Left = 1
      Top = 118
      Width = 628
      Height = 165
      Align = alClient
      BorderStyle = bsNone
      Color = clWhite
      Ctl3D = False
      DataSource = DSGroup
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Tadress: TTable
    Filtered = True
    OnCalcFields = TadressCalcFields
    DatabaseName = 'Vistamail'
    IndexFieldNames = 'PosA'
    TableName = 'ADRESS5.DB'
    TableType = ttParadox
    Left = 462
    Top = 244
    object TadressVybor: TBooleanField
      DisplayLabel = 'Select'
      DisplayWidth = 6
      FieldName = 'Vybor'
    end
    object TadresstypeadresStr: TStringField
      DisplayLabel = '-'
      FieldName = 'typeadresStr'
      Visible = False
      Size = 5
      Calculated = True
    end
    object TadressHomeEMail: TStringField
      DisplayLabel = 'E.mail'
      DisplayWidth = 20
      FieldName = 'HomeEMail'
      Size = 50
    end
    object TadressFirstName: TStringField
      DisplayLabel = 'First Name'
      DisplayWidth = 20
      FieldName = 'FirstName'
      Size = 40
    end
    object TadressLastName: TStringField
      DisplayLabel = 'Last Name'
      DisplayWidth = 20
      FieldName = 'LastName'
      Size = 40
    end
    object TadressURL: TStringField
      FieldName = 'URL'
      Size = 255
    end
    object TadressCompany: TStringField
      DisplayWidth = 30
      FieldName = 'Company'
      Size = 50
    end
    object TadressDescription: TStringField
      DisplayLabel = 'Note'
      FieldName = 'Description'
      Size = 60
    end
    object TadressTypeAdress: TSmallintField
      FieldName = 'TypeAdress'
      Visible = False
    end
    object TadressLN: TStringField
      FieldName = 'LN'
      Visible = False
      Size = 1
    end
    object TadressFN: TStringField
      FieldName = 'FN'
      Visible = False
      Size = 1
    end
    object TadressPosA: TIntegerField
      FieldName = 'PosA'
      Visible = False
    end
    object TadressFComp: TStringField
      FieldName = 'FComp'
      Visible = False
      Size = 1
    end
    object TadressBlockAdress: TBooleanField
      FieldName = 'BlockAdress'
      Visible = False
    end
    object TadressStopList: TBooleanField
      FieldName = 'StopList'
      Visible = False
    end
  end
  object DSadress: TDataSource
    DataSet = Tadress
    Left = 502
    Top = 252
  end
  object QadressUp: TQuery
    DatabaseName = 'Vistamail'
    Left = 514
    Top = 292
  end
  object TGroup: TTable
    DatabaseName = 'VistaMail'
    TableName = 'GroupNam.db'
    TableType = ttParadox
    Left = 376
    Top = 141
    object TGroupNameGroup: TStringField
      DisplayLabel = 'Name Group'
      DisplayWidth = 30
      FieldName = 'NameGroup'
      Size = 50
    end
    object TGroupSubject: TStringField
      DisplayWidth = 30
      FieldName = 'Subject'
      Size = 100
    end
    object TGroupComment: TStringField
      FieldName = 'Comment'
      Visible = False
      Size = 150
    end
    object TGroupPosG: TAutoIncField
      FieldName = 'PosG'
      Visible = False
    end
    object TGroupNote1: TStringField
      FieldName = 'Note1'
      Size = 50
    end
    object TGroupNote2: TStringField
      FieldName = 'Note2'
      Size = 50
    end
  end
  object TListGroup: TTable
    DatabaseName = 'VistaMail'
    TableName = 'ListGr.db'
    TableType = ttParadox
    Left = 448
    Top = 129
    object TListGroupPosG: TIntegerField
      FieldName = 'PosG'
    end
    object TListGroupPosA: TIntegerField
      FieldName = 'PosA'
    end
  end
  object Tdbadrmes: TTable
    DatabaseName = 'VistaMail'
    TableName = 'dbadrmes.DB'
    TableType = ttParadox
    Left = 516
    Top = 155
  end
  object DSadressUP: TDataSource
    DataSet = QueryUp
    Left = 580
    Top = 291
  end
  object QueryUp: TQuery
    AfterInsert = QueryUpAfterInsert
    BeforeEdit = QueryUpBeforeEdit
    BeforePost = QueryUpBeforePost
    AfterDelete = QueryUpAfterDelete
    DatabaseName = 'VistaMail'
    RequestLive = True
    SQL.Strings = (
      'select * from adress5 where PosA=:a0')
    Params.Data = {0100010002613000030400000000000000}
    Left = 560
    Top = 247
  end
  object Qadress: TQuery
    BeforeOpen = QadressBeforeOpen
    AfterOpen = QadressAfterOpen
    DatabaseName = 'Vistamail'
    SQL.Strings = (
      'select * from adress5')
    Left = 442
    Top = 298
    object QadressVybor: TBooleanField
      DisplayLabel = 'Type'
      FieldName = 'Vybor'
      Origin = '"adress5.DB".Vybor'
    end
    object QadressHomeEMail: TStringField
      Tag = 1
      DisplayLabel = 'E.mail'
      DisplayWidth = 20
      FieldName = 'HomeEMail'
      Origin = '"adress5.DB".HomeEMail'
      Size = 50
    end
    object QadressFirstName: TStringField
      Tag = 1
      DisplayLabel = 'First Name'
      DisplayWidth = 20
      FieldName = 'FirstName'
      Origin = '"adress5.DB".FirstName'
      Size = 40
    end
    object QadressLastName: TStringField
      Tag = 1
      DisplayLabel = 'Last Name'
      DisplayWidth = 20
      FieldName = 'LastName'
      Origin = '"adress5.DB".LastName'
      Size = 40
    end
    object QadressURL: TStringField
      Tag = 1
      DisplayWidth = 25
      FieldName = 'URL'
      Origin = '"adress5.DB".PosA'
      Size = 255
    end
    object QadressCompany: TStringField
      Tag = 1
      DisplayWidth = 35
      FieldName = 'Company'
      Origin = '"adress5.DB".Company'
      Size = 50
    end
    object QadressDescription: TStringField
      Tag = 1
      DisplayLabel = 'Note'
      DisplayWidth = 30
      FieldName = 'Description'
      Origin = '"adress5.DB".Description'
      Size = 60
    end
    object QadressTypeAdress: TSmallintField
      DisplayLabel = 'TypeAddress'
      FieldName = 'TypeAdress'
      Origin = '"adress5.DB".TypeAdress'
      Visible = False
    end
    object QadressLN: TStringField
      FieldName = 'LN'
      Origin = '"adress5.DB".LN'
      Visible = False
      Size = 1
    end
    object QadressPosA: TIntegerField
      FieldName = 'PosA'
      Origin = '"adress5.DB".PosA'
      Visible = False
    end
    object QadressFN: TStringField
      FieldName = 'FN'
      Origin = '"adress5.DB".FN'
      Visible = False
      Size = 1
    end
    object QadressFComp: TStringField
      FieldName = 'FComp'
      Origin = '"adress5.DB".FComp'
      Visible = False
      Size = 1
    end
    object QadressBlockAdress: TBooleanField
      DisplayLabel = 'Block adress'
      FieldName = 'BlockAdress'
      Origin = '"adress5.DB".LastName'
      DisplayValues = 'Yes;No'
    end
    object QadressStopList: TBooleanField
      FieldName = 'StopList'
      Origin = '"adress5.DB".PosA'
      Visible = False
    end
  end
  object DSGroup: TDataSource
    DataSet = TGroup
    Left = 386
    Top = 286
  end
end